home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC3.3 / M2LA.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  938 b   |  28 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2LA;  (* HS 20.5.85; 21.3.91 *)
  2.  
  3.   FROM SYSTEM IMPORT WORD;
  4.   FROM M2DA   IMPORT ObjPtr, StrPtr, KeyPtr;
  5.  
  6.   VAR pc, maxP, maxM : INTEGER;
  7.  
  8.  
  9.   PROCEDURE PutWord      (w: WORD);
  10.   PROCEDURE PutLong      (l: LONGINT);
  11.  
  12.   PROCEDURE AllocString  (s: INTEGER; VAR adr, length: INTEGER);
  13.   PROCEDURE AllocChar    (ch: CHAR; VAR adr: INTEGER);
  14.   PROCEDURE AllocBounds  (min, max, size: INTEGER; VAR adr: INTEGER);
  15.  
  16.   PROCEDURE fixup        (loc: INTEGER);
  17.   PROCEDURE FixLink      (L: INTEGER);
  18.   PROCEDURE FixupWith    (L: INTEGER; val: INTEGER);
  19.   PROCEDURE FixLinkWith  (L, val: INTEGER);
  20.   PROCEDURE MergedLinks  (L0, L1: INTEGER): INTEGER;
  21.  
  22.   PROCEDURE OutCodeFile  (VAR name: ARRAY OF CHAR; stamp: KeyPtr;
  23.                           datasize: INTEGER; pno, progid: INTEGER;
  24.                           ModList: ObjPtr);
  25.   PROCEDURE InitM2LM;
  26.  
  27. END M2LA. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  28.